home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / DATA / Video / SMK1.dir / 00001_Script_1 next >
Text File  |  1998-05-25  |  424b  |  21 lines

  1. on exitFrame
  2.   --1024 x 
  3.   -- play full-screen 
  4.   
  5.   set smk=new(xtra "smacker")
  6.   SmackSetDisplayMode(smk,4)
  7.   SmackOpen(smk,(the pathname)&"xtras\video.smk",1,0)
  8.   SmackSetPosition smk,-210,-150
  9.   SmackSetInterfaceKeys(smk,"\e\s\m")
  10.   SmackPlayLooped(smk,1)
  11.   set lastkey=SmackGetLastKey(smk)
  12.   SmackClose(smk)
  13.   
  14.   set smk=0
  15.   quit
  16.   --  updatestage
  17.   If lastkey="\e" then quit
  18.   go to the frame
  19. end
  20.  
  21.